home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / func.action.n < prev    next >
Encoding:
Text File  |  2000-03-14  |  1.2 KB  |  60 lines
  1. G4C
  2. ; $VER: func.action.n Rev.013 (HTMLEXT) by Juan Manuel Wehrli 2000
  3. WINBIG -1 -1 210 90 "Neue Aktion erstellen"
  4. WinType 11110000
  5. WinOnMouse 5 5
  6. WinBackground IMAGE BG 0
  7. Winout "NIL:"
  8. VarPath HTMLEXT
  9.  
  10. xONLOAD
  11.     EXTRACT *VIEWERNAME CLEAN name
  12.     Update #This 1 $name
  13.     EXTRACT *VIEWERPRG CLEAN prg
  14.     Update #This 2 $prg
  15.     GuiOpen #This
  16.  
  17. Text 8 0 195 15 "Viewerame:" 75 NOBOX
  18.     GadFont xHelvetica.font 13 000
  19.  
  20. XTextIn 5 15 200 18 "" name "" 255
  21.     GadID 1
  22.     GadFont xHelvetica.font 11 000
  23.     SetVar *VIEWERNAME $name
  24.  
  25. Text 8 35 195 15 "Viewer Parameter:" 75 NOBOX
  26.     GadFont xHelvetica.font 13 000
  27.  
  28. XTextIn 5 50 200 18 "" prg "" 255
  29.     GadID 2
  30.     GadFont xHelvetica.font 11 000
  31.     SetVar *VIEWERPRG $prg
  32.     lvuse menu.action 101
  33.     lvadd ''
  34.     %Name = $name
  35.     %Befehl = $prg
  36.     lvsort %Name
  37.     lvsave "HTMLEXT:settings/Action.prefs"
  38.     GuiQuit #This
  39.  
  40. xButton 5 70 90 15 "_1 Ändern"
  41.     GadKey "1"
  42.     GadFont xHelvetica.font 11 000
  43.     SetVar *VIEWERPRG $prg
  44.     lvuse menu.action 101
  45.     lvadd ''
  46.     %Name = $name
  47.     %Befehl = $prg
  48.     lvsort %Name
  49.     lvsave "HTMLEXT:settings/Action.prefs"
  50.     GuiQuit #This
  51.  
  52. xButton 115 70 90 15 "[_x] Abbrechen"
  53.     GadKey "x"
  54.     GadFont xHelvetica.font 11 000
  55.     GuiQuit #This
  56.  
  57.  
  58.  
  59.  
  60.